SUBROUTINE write_final_info
USE global
IMPLICIT NONE
1001 FORMAT("Code time:",F7.1,1X,"(s)",3X,"User time:",F7.1,1X,"(s)",3X,"Sys time:",F7.1,1X,"(s)")
! Write final time to log file
sys_etime=ETIME(sys_time)
OPEN(UNIT=1,FILE=lgfn,STATUS='OLD',ACCESS='APPEND')
WRITE(1,*)
PRINT *
WRITE(1,1001) sys_etime,sys_time(1),sys_time(2)
PRINT 1001,sys_etime,sys_time(1),sys_time(2)
PRINT *
CLOSE(1)

END SUBROUTINE write_final_info
